TROPICAL ATMOSPHERE

run_modtran(filename = "_data/modtran_tropical_baseline.txt", co2_ppm = 400, atmosphere="Tropical")
modtran_tropical_baseline=read_modtran("_data/modtran_tropical_baseline.txt")
tropicalbaseline_i_out=modtran_tropical_baseline$i_out
tropicalbaseline_i_out
## [1] 298.6712
plot_modtran("_data/modtran_tropical_baseline.txt")

run_modtran(filename = "_data/modtran_tropical_increaseco2.txt", co2_ppm = 800, atmosphere="Tropical")
modtran_tropical_increaseco2=read_modtran("_data/modtran_tropical_increaseco2.txt")
tropicalincreaseco2_i_out=modtran_tropical_increaseco2$i_out
tropicalincreaseco2_i_out
## [1] 295.3411
plot_modtran("_data/modtran_tropical_increaseco2.txt")

run_modtran(filename = "_data/modtran_tropical_restore_watvap.txt", co2_ppm = 800, atmosphere="Tropical", h2o_fixed = "vapor pressure", delta_t = 0.76)
modtran_tropical_restore_watvap=read_modtran("_data/modtran_tropical_restore_watvap.txt")
tropicalrestorewatvap_i_out=modtran_tropical_restore_watvap$i_out
tropicalrestorewatvap_i_out
## [1] 298.6712
run_modtran(filename = "_data/modtran_tropical_restorehum.txt", co2_ppm = 800, atmosphere="Tropical", h2o_fixed = "relative humidity", delta_t = 1.21)
modtran_tropical_restorehum=read_modtran("_data/modtran_tropical_restorehum.txt")
tropicalrestorehum_i_out=modtran_tropical_restorehum$i_out
tropicalrestorehum_i_out
## [1] 298.6712

MIDLATITUDE SUMMER

run_modtran(filename = "_data/modtran_mlsummer_baseline.txt", co2_ppm = 400, atmosphere="midlatitude summer")
modtran_mlsummer_baseline=read_modtran("_data/modtran_mlsummer_baseline.txt")
mlsummerbaseline_i_out=modtran_mlsummer_baseline$i_out
mlsummerbaseline_i_out
## [1] 289.7491
plot_modtran("_data/modtran_mlsummer_baseline.txt")

run_modtran(filename = "_data/modtran_mlsummer_increaseco2.txt", co2_ppm = 800, atmosphere="midlatitude summer")
modtran_mlsummer_increaseco2=read_modtran("_data/modtran_mlsummer_increaseco2.txt")
mlsummerincreaseco2_i_out=modtran_mlsummer_increaseco2$i_out
mlsummerincreaseco2_i_out
## [1] 286.7332
plot_modtran("_data/modtran_mlsummer_increaseco2.txt")

run_modtran(filename = "_data/modtran_mlsummer_restore_watvap.txt", co2_ppm = 800, atmosphere="midlatitude summer", h2o_fixed = "vapor pressure", delta_t = 0.715)
modtran_mlsummer_restore_watvap=read_modtran("_data/modtran_mlsummer_restore_watvap.txt")
mlsummerrestorewatvap_i_out=modtran_mlsummer_restore_watvap$i_out
mlsummerrestorewatvap_i_out
## [1] 289.7491
run_modtran(filename = "_data/modtran_mlsummer_restorehum.txt", co2_ppm = 800, atmosphere="midlatitude summer", h2o_fixed = "relative humidity", delta_t = 1.03)
modtran_mlsummer_restorehum=read_modtran("_data/modtran_mlsummer_restorehum.txt")
mlsummerrestorehum_i_out=modtran_mlsummer_restorehum$i_out
mlsummerrestorehum_i_out
## [1] 289.7491

MIDLATITUDE WINTER

run_modtran(filename = "_data/modtran_mlwinter_baseline.txt", co2_ppm = 400, atmosphere="midlatitude winter")
modtran_mlwinter_baseline=read_modtran("_data/modtran_mlwinter_baseline.txt")
mlwinterbaseline_i_out=modtran_mlwinter_baseline$i_out
mlwinterbaseline_i_out
## [1] 235.3367
plot_modtran("_data/modtran_mlwinter_baseline.txt")

run_modtran(filename = "_data/modtran_mlwinter_increaseco2.txt", co2_ppm = 800, atmosphere="midlatitude winter")
modtran_mlwinter_increaseco2=read_modtran("_data/modtran_mlwinter_increaseco2.txt")
mlwinterincreaseco2_i_out=modtran_mlwinter_increaseco2$i_out
mlwinterincreaseco2_i_out
## [1] 232.9491
plot_modtran("_data/modtran_mlwinter_increaseco2.txt")

run_modtran(filename = "_data/modtran_mlwinter_restore_watvap.txt", co2_ppm = 800, atmosphere="midlatitude winter", h2o_fixed = "vapor pressure", delta_t = 0.653)
modtran_mlwinter_restore_watvap=read_modtran("_data/modtran_mlwinter_restore_watvap.txt")
mlwinterrestorewatvap_i_out=modtran_mlwinter_restore_watvap$i_out
mlwinterrestorewatvap_i_out
## [1] 235.3367
run_modtran(filename = "_data/modtran_mlwinter_restorehum.txt", co2_ppm = 800, atmosphere="midlatitude winter", h2o_fixed = "relative humidity", delta_t = 0.83)
modtran_mlwinter_restorehum=read_modtran("_data/modtran_mlwinter_restorehum.txt")
mlwinterrestorehum_i_out=modtran_mlwinter_restorehum$i_out
mlwinterrestorehum_i_out
## [1] 235.3367

SUBARCTIC SUMMER

run_modtran(filename = "_data/modtran_subsum_baseline.txt", co2_ppm = 400, atmosphere="subarctic summer")
modtran_subsum_baseline=read_modtran("_data/modtran_subsum_baseline.txt")
subsumbaseline_i_out=modtran_subsum_baseline$i_out
subsumbaseline_i_out
## [1] 270.8681
plot_modtran("_data/modtran_subsum_baseline.txt")

run_modtran(filename = "_data/modtran_subsum_increaseco2.txt", co2_ppm = 800, atmosphere="subarctic summer")
modtran_subsum_increaseco2=read_modtran("_data/modtran_subsum_increaseco2.txt")
subsumincreaseco2_i_out=modtran_subsum_increaseco2$i_out
subsumincreaseco2_i_out
## [1] 268.4177
plot_modtran("_data/modtran_subsum_increaseco2.txt")

run_modtran(filename = "_data/modtran_subsum_restore_watvap.txt", co2_ppm = 800, atmosphere="subarctic summer", h2o_fixed = "vapor pressure", delta_t = 0.6)
modtran_subsum_restore_watvap=read_modtran("_data/modtran_subsum_restore_watvap.txt")
subsumrestorewatvap_i_out=modtran_subsum_restore_watvap$i_out
subsumrestorewatvap_i_out
## [1] 270.8681
run_modtran(filename = "_data/modtran_subsum_restorehum.txt", co2_ppm = 800, atmosphere="subarctic summer", h2o_fixed = "relative humidity", delta_t = 0.83)
modtran_subsum_restorehum=read_modtran("_data/modtran_subsum_restorehum.txt")
subsumrestorehum_i_out=modtran_subsum_restorehum$i_out
subsumrestorehum_i_out
## [1] 270.8681

SUBARCTIC WINTER

run_modtran(filename = "_data/modtran_subwint_baseline.txt", co2_ppm = 400, atmosphere="subarctic winter")
modtran_subwint_baseline=read_modtran("_data/modtran_subwint_baseline.txt")
subwintbaseline_i_out=modtran_subwint_baseline$i_out
subwintbaseline_i_out
## [1] 202.1615
plot_modtran("_data/modtran_subwint_baseline.txt")

run_modtran(filename = "_data/modtran_subwint_increaseco2.txt", co2_ppm = 800, atmosphere="subarctic winter")
modtran_subwint_increaseco2=read_modtran("_data/modtran_subwint_increaseco2.txt")
subwintincreaseco2_i_out=modtran_subwint_increaseco2$i_out
subwintincreaseco2_i_out
## [1] 200.4022
plot_modtran("_data/modtran_subwint_increaseco2.txt")

run_modtran(filename = "_data/modtran_subwint_restore_watvap.txt", co2_ppm = 800, atmosphere="subarctic winter", h2o_fixed = "vapor pressure", delta_t = 0.54)
modtran_subwint_restore_watvap=read_modtran("_data/modtran_subwint_restore_watvap.txt")
subwintrestorewatvap_i_out=modtran_subwint_restore_watvap$i_out
subwintrestorewatvap_i_out
## [1] 202.1615
run_modtran(filename = "_data/modtran_subwint_restorehum.txt", co2_ppm = 800, atmosphere="subarctic winter", h2o_fixed = "relative humidity", delta_t = 0.64)
modtran_subwint_restorehum=read_modtran("_data/modtran_subwint_restorehum.txt")
subwintrestorehum_i_out=modtran_subwint_restorehum$i_out
subwintrestorehum_i_out
## [1] 202.1615

1976 STANDARD US ATMOSPHERE

run_modtran(filename = "_data/modtran_nineteen76us_baseline.txt", co2_ppm = 400, atmosphere="standard")
modtran_nineteen76us_baseline=read_modtran("_data/modtran_nineteen76us_baseline.txt")
nineteen76usbaseline_i_out=modtran_nineteen76us_baseline$i_out
nineteen76usbaseline_i_out
## [1] 267.9779
plot_modtran("_data/modtran_nineteen76us_baseline.txt")

run_modtran(filename = "_data/modtran_nineteen76us_increaseco2.txt", co2_ppm = 800, atmosphere="standard")
modtran_nineteen76us_increaseco2=read_modtran("_data/modtran_nineteen76us_increaseco2.txt")
nineteen76usincreaseco2_i_out=modtran_nineteen76us_increaseco2$i_out
nineteen76usincreaseco2_i_out
## [1] 264.9933
plot_modtran("_data/modtran_nineteen76us_increaseco2.txt")

run_modtran(filename = "_data/modtran_nineteen76us_restore_watvap.txt", co2_ppm = 800, atmosphere="standard", h2o_fixed = "vapor pressure", delta_t = 0.75)
modtran_nineteen76us_restore_watvap=read_modtran("_data/modtran_nineteen76us_restore_watvap.txt")
nineteen76usrestorewatvap_i_out=modtran_nineteen76us_restore_watvap$i_out
nineteen76usrestorewatvap_i_out
## [1] 267.9779
run_modtran(filename = "_data/modtran_nineteen76us_restorehum.txt", co2_ppm = 800, atmosphere="standard", h2o_fixed = "relative humidity", delta_t = 1.06)
modtran_nineteen76us_restorehum=read_modtran("_data/modtran_nineteen76us_restorehum.txt")
nineteen76usrestorehum_i_out=modtran_nineteen76us_restorehum$i_out
nineteen76usrestorehum_i_out
## [1] 267.9779

[o] [o]

uu

/——
--UU–/ YUM